﻿Public Class BEposicion

#Region "Declaración de variables"

    Private codPosicion As Integer
    Private codCrioBox As Integer
    Private codMuestra As Integer
    Private fila As Integer
    Private columna As Integer
    Private estado As Boolean

#End Region

    Sub New()
    End Sub

    Sub New(ByVal pCodPosicion As Object, _
            ByVal pCodCrioBox As Object, _
            ByVal pCodMuestra As Object, _
            ByVal pFila As Object, _
            ByVal pColumna As Object, _
            ByVal pEstado As Object)

        Me._codPosicion = pCodPosicion
        Me._codCrioBox = pCodCrioBox
        Me.codMuestra = pCodMuestra
        Me._fila = pFila
        Me._columna = pColumna
        Me._estado = pEstado
    End Sub

    Public Property _codPosicion() As Integer
        Get
            Return Me.codPosicion
        End Get
        Set(ByVal value As Integer)
            Me.codPosicion = value
        End Set
    End Property

    Public Property _codCrioBox() As Integer
        Get
            Return Me.codCrioBox
        End Get
        Set(ByVal value As Integer)
            Me.codCrioBox = value
        End Set
    End Property

    Public Property _codMuestra() As Integer
        Get
            Return Me.codMuestra
        End Get
        Set(ByVal value As Integer)
            Me.codMuestra = value
        End Set
    End Property

    Public Property _fila() As Integer
        Get
            Return Me.fila
        End Get
        Set(ByVal value As Integer)
            Me.fila = value
        End Set
    End Property

    Public Property _columna() As Integer
        Get
            Return Me.columna
        End Get
        Set(ByVal value As Integer)
            Me.columna = value
        End Set
    End Property

    Public Property _estado() As Boolean
        Get
            Return Me.estado
        End Get
        Set(ByVal value As Boolean)
            Me.estado = value
        End Set
    End Property


 



End Class
